home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Format 2004 Junue - Disc 1
/
MacFormat 143 CD1.iso
/
Serious Software
/
RealCADD3.05.sit
/
RealCADD3.05
/
scripts
/
X1Xscript
< prev
next >
Wrap
Text File
|
2003-04-11
|
598b
|
47 lines
RCAD script
1.00
X1Xscript
X1Xup.pict
X1Xdown.pict
5
0
1
Before
First number
After
Font
Size
X
1
X
Helvetica
18
Dim s_xc, s_yc as double
Dim s_t as integer
Dim s_String as string
if GlobalScript1 < 0 then
GlobalScript1 = 0
GlobalScript2 = val(UserInput2)
else
GlobalScript2 = GlobalScript2 + 1
end if
s_xc = (firstx + lastx) / 2
s_yc = (firsty + lasty) / 2
s_t = val(UserInput5)
s_String = UserInput1 + Str(GlobalScript2) + UserInput3
if (s_String <> "") and (s_t > 0) then
Add_String(s_String,s_xc, s_yc + s_t/2,s_t,1,false,false,false,7,0,UserInput4,false,false,0)
end if